10 GOSUB400
20 REM TUETE VON ALEXANDER LEENEN/PAUL-EHRLICH-STR.15/4152 KEMPEN 1/02152/53534
30 A=LEN(A$):C=INT(A/2):B=29-C:D=A-C
40 E=LEN(B$):F=INT(E/2):G=29-F:H=E-F
50 I=LEN(C$):J=INT(I/2):K=29-J:L=I-J
60 OPEN4,4:CMD4:A=LEN(A$):C=INT(A/2):B=29-C:D=A-C
65 FORP=1TOY
70 PRINT"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
80 PRINT"[192][192][192][192][192][192][192][192][192][201]"
90 FORI=1TO8
100 PRINT"[221]     .";SPC(58);".     [194]"
120 NEXTI
130 PRINT"[221]     .";SPC(B);A$;SPC(29-D);".     [194]"
140 PRINT"[221]     .";SPC(58);".     [194]"
160 PRINT"[221]     .";SPC(G);B$;SPC(29-H);".     [194]"
170 PRINT"[221]     .";SPC(58);".     [194]"
190 PRINT"[221]     .";SPC(K);C$;SPC(29-L);".     [194]"
220 FORI=1TO10
230 PRINT"[221]     .";SPC(58);".     [194]"
250 NEXTI
260 PRINT"[202][192][192][192][192][192][201] -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ";
270 PRINT"-  [213][192][192][192][192][192][203]"
280 FORI=1TO28
290 PRINT"      [221]";SPC(58);"[194]":NEXTI
310 PRINT"      [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
320 PRINT"[192][192][192][203]"
325 NEXTP:FORK=1TO20:PRINT:NEXTK
330 PRINT#4:CLOSE4,4
340 PRINT"[147] UND NUN VIEL SPASS BEIM FALTEN
350 [153]" WUENSCHT IHNEN :"
360 [153]" ALEXANDER LEENEN"
370 [153]" PAUL-EHRLICH-STR.15"
380 [153]" 02152/53534"
390 [153]" 4152 KEMPEN 1"
391 [153]"  NEUSTART DES PROGRAMMS MIT 'RUN' !":[153]"             * T - C *"
392 [128]
400 [151]53280,1:[151]53281,1
410 [153]"LOADSTOP   TUETE, EIN PROGRAMM VON ALEXANDER                     LEENEN"
420 [153]"   'MODIFIZIERT' BY     TIGER - CREW"
430 [153]"   MIT  DIESEM  PROGRAMM KOENNEN SIE       DISKETTENHUELLEN DRUCKEN.
440 PRINT" 3 ZEILEN TEXT ZU JE 40 ZEICHEN KOENNEN  ZUM DRUCK AUF DER";
450 PRINT"   HUELLENVORDERSEITE":PRINT" EINGEGEBEN WERDEN."
460 PRINT"   DIE HUELLEN  EINFACH  AN DER GE -"
470 PRINT"   STRICHELTEN   LINIE  KNICKEN  UND"
480 PRINT"   KLEBEN.":POKE198,0:WAIT198,1:POKE198,0:PRINT"[147]"
490 PRINT"  HUELLENTEXT, 1. ZEILE ":INPUTA$
500 PRINT"  HUELLENTEXT, 2. ZEILE ":INPUTB$
510 PRINT"  HUELLENTEXT, 3. ZEILE ":INPUTC$
511 PRINT"      EINGABEN WUNSCHGEMAESS ?"
512 GETW$:IFW$<>"J"ANDW$<>"N"THEN512
513 IFW$="N"THENPRINT"":GOTO490
520 PRINT"[147][144]    WIEVIELE HUELLEN SOLLEN":INPUT"    GEDRUCKT WERDEN   1[157][157][157]";Y$
530 Y=VAL(Y$):IFY<1THENPRINT"[145][145][145][145][145]":GOTO520
535 IFY<21THEN570
540 PRINT"          ";Y;"[146] -":PRINT"    WIRKLICH  SOOOO VIELE ?"
550 GETZ$:IFZ$<>"J"ANDZ$<>"N"THEN550
560 IFZ$="N"THENPRINT"[145][145][145][145][145][145][145][145]":GOTO520
570 PRINT   " ***AUF KNOPFDRUCK GEHT ES LOS ***"
580 POKE198,0:WAIT198,1:POKE198,0
590 RETURN